inherited FrmRel_ComissaoRepresentante: TFrmRel_ComissaoRepresentante
  Left = 295
  Top = 149
  Caption = 'Comiss'#227'o de Representante'
  ClientHeight = 509
  ClientWidth = 569
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 569
    Height = 336
    object Label15: TLabel
      Left = 11
      Top = 11
      Width = 77
      Height = 14
      Caption = 'Repres. Inicial'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object BtnRepresentante: TSpeedButton
      Left = 134
      Top = 7
      Width = 23
      Height = 22
      Enabled = False
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = BtnRepresentanteClick
    end
    object Label1: TLabel
      Left = 17
      Top = 36
      Width = 71
      Height = 14
      Caption = 'Repres. Final'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object btnReprFim: TSpeedButton
      Left = 134
      Top = 32
      Width = 23
      Height = 22
      Enabled = False
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = btnReprFimClick
    end
    object ckStatus: TRadioGroup
      Left = 8
      Top = 54
      Width = 241
      Height = 35
      Columns = 3
      Ctl3D = True
      ItemIndex = 0
      Items.Strings = (
        'Ativos'
        'Inativos'
        'Todos')
      ParentCtl3D = False
      TabOrder = 2
      OnClick = ckStatusClick
      OnExit = ckStatusClick
    end
    object GroupBox1: TGroupBox
      Left = 8
      Top = 229
      Width = 545
      Height = 45
      Caption = 'Per'#237'odo'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      object Label2: TLabel
        Left = 52
        Top = 18
        Width = 54
        Height = 14
        Caption = 'Iniciar em'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 318
        Top = 18
        Width = 68
        Height = 14
        Caption = 'Encerrar em'
      end
      object edtDataIni: TDateEdit
        Left = 113
        Top = 15
        Width = 100
        Height = 21
        Ctl3D = False
        NumGlyphs = 2
        ParentCtl3D = False
        TabOrder = 0
        OnKeyDown = edtDataIniKeyDown
      end
      object edtDataFin: TDateEdit
        Left = 393
        Top = 15
        Width = 100
        Height = 21
        Ctl3D = False
        NumGlyphs = 2
        ParentCtl3D = False
        TabOrder = 1
        OnKeyDown = edtDataFinKeyDown
      end
    end
    object edtRepresentanteInicial: TEdit
      Left = 92
      Top = 7
      Width = 41
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 3
      ParentFont = False
      TabOrder = 0
      OnEnter = edtRepresentanteInicialEnter
      OnExit = edtRepresentanteInicialExit
      OnKeyDown = edtRepresentanteInicialKeyDown
    end
    object PnlRepresentante: TPanel
      Left = 157
      Top = 7
      Width = 405
      Height = 22
      Alignment = taLeftJustify
      BevelInner = bvLowered
      Color = 14081504
      TabOrder = 7
    end
    object Panel7: TPanel
      Left = 7
      Top = 354
      Width = 556
      Height = 24
      BevelInner = bvRaised
      BevelOuter = bvLowered
      BorderWidth = 2
      TabOrder = 14
      object bp: TGauge
        Left = 6
        Top = 5
        Width = 544
        Height = 14
        BorderStyle = bsNone
        ForeColor = clNavy
        Progress = 0
        Visible = False
      end
    end
    object cklRepresentantes: TCheckListBox
      Left = 8
      Top = 110
      Width = 553
      Height = 115
      HelpType = htKeyword
      BevelKind = bkFlat
      BorderStyle = bsNone
      Columns = 2
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      ItemHeight = 14
      ParentFont = False
      TabOrder = 5
    end
    object edtRepresentanteFinal: TEdit
      Left = 92
      Top = 32
      Width = 41
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 3
      ParentFont = False
      TabOrder = 1
      OnEnter = edtRepresentanteFinalEnter
      OnExit = edtRepresentanteFinalExit
      OnKeyDown = edtRepresentanteFinalKeyDown
    end
    object pnlRepFim: TPanel
      Left = 157
      Top = 32
      Width = 405
      Height = 22
      Alignment = taLeftJustify
      BevelInner = bvLowered
      Color = 14081504
      TabOrder = 15
    end
    object ckbRepresentantes: TCheckBox
      Left = 8
      Top = 93
      Width = 121
      Height = 17
      TabStop = False
      Caption = 'Selecionar Todos'
      Checked = True
      State = cbChecked
      TabOrder = 4
      OnClick = ckbRepresentantesClick
    end
    object ckbQuebra: TCheckBox
      Left = 11
      Top = 284
      Width = 214
      Height = 17
      Caption = 'Quebrar representante por p'#225'gina'
      TabOrder = 8
    end
    object ckbNaoLiberados: TCheckBox
      Left = 12
      Top = 312
      Width = 145
      Height = 17
      Caption = 'Exibir N'#227'o Liberados'
      TabOrder = 11
    end
    object ckbGerar: TCheckBox
      Left = 264
      Top = 65
      Width = 161
      Height = 17
      Caption = 'Gerar arquivo para envio'
      TabOrder = 3
    end
    object ckbPagos: TCheckBox
      Left = 243
      Top = 314
      Width = 97
      Height = 17
      Caption = 'Exibir Pagos'
      TabOrder = 12
    end
    object ckbSaldoAnterior: TCheckBox
      Left = 243
      Top = 288
      Width = 145
      Height = 17
      Caption = 'Detalhar saldo anterior'
      TabOrder = 9
    end
    object ckbExportar: TCheckBox
      Left = 420
      Top = 288
      Width = 133
      Height = 17
      Caption = 'Exportar para Excel'
      TabOrder = 10
    end
    object ckbAgruparPeriodo: TCheckBox
      Left = 420
      Top = 312
      Width = 133
      Height = 17
      Caption = 'Agrupar por per'#237'odo'
      TabOrder = 13
    end
  end
  inherited Panel2: TPanel
    Top = 442
    Width = 569
    inherited btncancelar1: TBitBtn
      Left = 239
    end
    inherited btnfechar1: TBitBtn
      Left = 460
    end
    inherited bimprimir: TFlatButton
      OnClick = bimprimirClick
    end
    inherited btncancelar: TFlatButton
      Left = 230
      OnClick = btncancelarClick
    end
    inherited btnfechar: TFlatButton
      Left = 448
    end
  end
  inherited sb: TStatusBar
    Top = 490
    Width = 569
  end
  inherited Panel3: TPanel
    Width = 569
    object SpeedButton1: TSpeedButton [1]
      Left = -16
      Top = -16
      Width = 23
      Height = 22
      Flat = True
      OnClick = SpeedButton1Click
    end
    inherited ListaEmp: TCheckListBox
      Width = 553
    end
  end
  object pnlRepres: TPanel [4]
    Left = 558
    Top = 139
    Width = 449
    Height = 270
    BevelInner = bvLowered
    BorderWidth = 1
    Color = clGray
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    Visible = False
    object Label10: TLabel
      Left = 5
      Top = 6
      Width = 241
      Height = 19
      Caption = 'Enviar para os Representantes:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 24
      Top = 36
      Width = 29
      Height = 14
      Caption = 'Email'
    end
    object Label6: TLabel
      Left = 19
      Top = 60
      Width = 34
      Height = 14
      Caption = 'Senha'
    end
    object Label7: TLabel
      Left = 6
      Top = 84
      Width = 47
      Height = 14
      Caption = 'Servidor'
      Enabled = False
    end
    object btnEnviar: TBitBtn
      Left = 364
      Top = 31
      Width = 75
      Height = 25
      Caption = 'Enviar'
      TabOrder = 3
      OnClick = btnEnviarClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333FFFFFFFFFFFFFFF000000000000
        000077777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF
        FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF777777F
        FFF07F33377777733FF70FFFFFFFFFFF99907F3FFF33333377770F777FFFFFFF
        9CA07F77733333337F370FFFFFFFFFFF9A907FFFFFFFFFFF7FF7000000000000
        0000777777777777777733333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object cklRepres: TCheckListBox
      Left = 3
      Top = 130
      Width = 443
      Height = 137
      Align = alBottom
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = 16056319
      Columns = 2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Arial'
      Font.Style = []
      HeaderBackgroundColor = 16056319
      ItemHeight = 12
      ParentFont = False
      TabOrder = 4
    end
    object ckbMarcarTds: TCheckBox
      Left = 6
      Top = 109
      Width = 97
      Height = 17
      Caption = 'Marcar Todos'
      TabOrder = 2
      OnClick = ckbMarcarTdsClick
    end
    object btnFecha: TBitBtn
      Left = 364
      Top = 74
      Width = 75
      Height = 25
      Caption = 'Fechar'
      TabOrder = 5
      OnClick = btnFechaClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00377777777788
        F8F878F7777777777333333F00004444400777FFF444447777777777F333FF7F
        000033334D5008FFF4333377777777773337777F0000333345D50FFFF4333333
        337F777F3337F33F000033334D5D0FFFF43333333377877F3337F33F00003333
        45D50FEFE4333333337F787F3337F33F000033334D5D0FFFF43333333377877F
        3337F33F0000333345D50FEFE4333333337F787F3337F33F000033334D5D0FFF
        F43333333377877F3337F33F0000333345D50FEFE4333333337F787F3337F33F
        000033334D5D0EFEF43333333377877F3337F33F0000333345D50FEFE4333333
        337F787F3337F33F000033334D5D0EFEF43333333377877F3337F33F00003333
        4444444444333333337F7F7FFFF7F33F00003333333333333333333333777777
        7777333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
        333333333333777777F3333F00003333330000003333333333337FFFF7F3333F
        0000}
      NumGlyphs = 2
    end
    object edtEmail: TEdit
      Left = 55
      Top = 32
      Width = 300
      Height = 22
      ReadOnly = True
      TabOrder = 0
    end
    object edtSenha: TEdit
      Left = 55
      Top = 56
      Width = 186
      Height = 22
      PasswordChar = '*'
      TabOrder = 1
    end
    object cmbServidor: TComboBox
      Left = 55
      Top = 81
      Width = 186
      Height = 22
      Enabled = False
      ItemHeight = 14
      ItemIndex = 1
      TabOrder = 6
      Text = 'Outros'
      OnClick = cmbServidorClick
      OnKeyDown = cmbServidorKeyDown
      Items.Strings = (
        'Gmail'
        'Outros')
    end
  end
  object RLReport1: TRLReport [5]
    Left = 550
    Top = 429
    Width = 794
    Height = 1123
    DataSource = dsEnvio
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    Margins.LeftMargin = 3.000000000000000000
    Margins.TopMargin = 3.000000000000000000
    Margins.RightMargin = 3.000000000000000000
    Margins.BottomMargin = 3.000000000000000000
    Visible = False
    object RLBand4: TRLBand
      Left = 11
      Top = 11
      Width = 772
      Height = 27
      BandType = btHeader
      Borders.Sides = sdCustom
      Borders.DrawLeft = False
      Borders.DrawTop = False
      Borders.DrawRight = False
      Borders.DrawBottom = True
      object RLLabel17: TRLLabel
        Left = 6
        Top = 8
        Width = 147
        Height = 14
        Caption = 'Automa'#231#227'o Industrial'
      end
      object lblEmpresa: TRLLabel
        Left = 633
        Top = 8
        Width = 77
        Height = 14
        Alignment = taRightJustify
      end
    end
    object RLBand1: TRLBand
      Left = 11
      Top = 38
      Width = 772
      Height = 104
      BandType = btHeader
      Borders.Sides = sdCustom
      Borders.DrawLeft = False
      Borders.DrawTop = False
      Borders.DrawRight = False
      Borders.DrawBottom = False
      object RLLabel1: TRLLabel
        Left = 259
        Top = 23
        Width = 199
        Height = 19
        Caption = 'Extrato do Representante'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblRepresentante: TRLLabel
        Left = 307
        Top = 43
        Width = 106
        Height = 18
        Alignment = taCenter
        Caption = 'Representante'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object RLSystemInfo1: TRLSystemInfo
        Left = 117
        Top = 83
        Width = 49
        Height = 14
      end
      object RLLabel9: TRLLabel
        Left = 0
        Top = 83
        Width = 119
        Height = 14
        Caption = 'Data de Emiss'#227'o:'
      end
      object RLSystemInfo2: TRLSystemInfo
        Left = 679
        Top = 82
        Width = 91
        Height = 14
        Info = itPageNumber
      end
      object RLLabel10: TRLLabel
        Left = 656
        Top = 82
        Width = 28
        Height = 14
        Caption = 'Pg.'
      end
      object lblPeriodo: TRLLabel
        Left = 320
        Top = 63
        Width = 78
        Height = 14
        Alignment = taCenter
      end
    end
    object RLBand7: TRLBand
      Left = 11
      Top = 158
      Width = 772
      Height = 14
      Borders.Sides = sdCustom
      Borders.DrawLeft = False
      Borders.DrawTop = False
      Borders.DrawRight = False
      Borders.DrawBottom = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -9
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      object lblLinha: TRLDBText
        Left = 4
        Top = 3
        Width = 30
        Height = 8
        DataField = 'Linha'
        DataSource = dsEnvio
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -8
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
      end
    end
    object RLBand2: TRLBand
      Left = 11
      Top = 142
      Width = 772
      Height = 16
      BandType = btHeader
      object lblSubCabecalho: TRLLabel
        Left = 4
        Top = 4
        Width = 80
        Height = 8
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -8
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
      end
    end
    object RLBand3: TRLBand
      Left = 11
      Top = 172
      Width = 772
      Height = 151
      BandType = btSummary
      object lblSaldoAnterior: TRLLabel
        Left = 5
        Top = 8
        Width = 119
        Height = 14
      end
      object lblComissoesDoPeriodo: TRLLabel
        Left = 5
        Top = 26
        Width = 154
        Height = 14
      end
      object lblDevolucoes: TRLLabel
        Left = 5
        Top = 45
        Width = 98
        Height = 14
      end
      object lblDebitosPeriodo: TRLLabel
        Left = 5
        Top = 63
        Width = 126
        Height = 14
      end
      object lblCreditosPeriodo: TRLLabel
        Left = 5
        Top = 82
        Width = 133
        Height = 14
      end
      object lblComissaoPaga: TRLLabel
        Left = 5
        Top = 101
        Width = 112
        Height = 14
      end
      object lblSaldoTotal: TRLLabel
        Left = 5
        Top = 119
        Width = 98
        Height = 14
      end
      object lblFinal: TRLLabel
        Left = 5
        Top = 138
        Width = 45
        Height = 8
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -8
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
      end
    end
  end
  inherited Timer1: TTimer
    Left = 511
    Top = 2
  end
  inherited RDP: TRDprint
    Left = 539
    Top = 2
  end
  object CDSEmp: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 315
    Top = 2
    object CDSEmpEmpresa: TStringField
      FieldName = 'Empresa'
    end
    object CDSEmpValor: TFloatField
      FieldName = 'Valor'
    end
    object CDSEmpComiss: TFloatField
      FieldName = 'Comiss'
    end
  end
  object cdsRep: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 343
    Top = 2
    object cdsReprep: TStringField
      FieldName = 'rep'
      Size = 3
    end
  end
  object cds: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 288
    Top = 2
    object cdsseq: TStringField
      FieldName = 'seq'
    end
    object cdsempresa: TStringField
      FieldName = 'empresa'
      Size = 3
    end
    object cdsdata: TDateField
      FieldName = 'data'
    end
    object cdstipo: TStringField
      FieldName = 'tipo'
    end
    object cdsHistorico: TStringField
      FieldName = 'Historico'
      Size = 40
    end
    object cdsserie: TStringField
      FieldName = 'serie'
      Size = 3
    end
    object cdsnota: TStringField
      FieldName = 'nota'
      Size = 30
    end
    object cdsentidade: TStringField
      FieldName = 'entidade'
      Size = 5
    end
    object cdspedido: TStringField
      FieldName = 'pedido'
      Size = 9
    end
    object cdspedrep: TStringField
      FieldName = 'pedrep'
      Size = 9
    end
    object cdspm: TStringField
      FieldName = 'pm'
      Size = 3
    end
    object cdscomissao: TFloatField
      FieldName = 'comissao'
    end
    object cdsbase: TFloatField
      FieldName = 'base'
    end
    object cdsvalor: TFloatField
      FieldName = 'valor'
    end
    object cdsstatus: TStringField
      FieldName = 'status'
      Size = 15
    end
    object cdsrepresentatnte: TStringField
      FieldName = 'representatnte'
      Size = 3
    end
    object cdshistorico2: TStringField
      FieldName = 'historico2'
      Size = 40
    end
    object cdstitulo: TStringField
      FieldName = 'titulo'
      Size = 15
    end
    object cdsdevolucao: TFloatField
      FieldName = 'devolucao'
    end
    object cdsdebitoper: TFloatField
      FieldName = 'debitoper'
    end
    object cdsfrete: TFloatField
      FieldName = 'frete'
    end
    object cdsdev: TBooleanField
      FieldName = 'dev'
    end
    object cdscomisspaga: TFloatField
      FieldName = 'comisspaga'
    end
    object cdsCancelada: TBooleanField
      FieldName = 'Cancelada'
    end
    object cdschave: TStringField
      FieldName = 'chave'
    end
  end
  object cdsEnvio: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 427
    Top = 2
    object cdsEnvioSeq: TIntegerField
      FieldName = 'Seq'
    end
    object cdsEnvioRep: TStringField
      FieldName = 'Rep'
      Size = 3
    end
    object cdsEnvioLinha: TStringField
      FieldName = 'Linha'
      Size = 160
    end
  end
  object dsEnvio: TDataSource
    DataSet = cdsEnvio
    Left = 455
    Top = 2
  end
  object pdf: TRLPDFFilter
    DocumentInfo.Creator = 'FortesReport v3.23 \251 Copyright '#169' 1999-2004 Fortes Inform'#225'tica'
    ViewerOptions = []
    FontEncoding = feNoEncoding
    DisplayName = 'Documento PDF'
    Left = 483
    Top = 2
  end
  object IdSMTP: TIdSMTP
    MaxLineAction = maException
    ReadTimeout = 0
    Port = 25
    AuthenticationType = atLogin
    Left = 399
    Top = 2
  end
  object IdMessage: TIdMessage
    AttachmentEncoding = 'MIME'
    BccList = <>
    CCList = <>
    Encoding = meMIME
    Recipients = <>
    ReplyTo = <>
    Left = 371
    Top = 2
  end
  object IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket
    SSLOptions.Method = sslvSSLv2
    SSLOptions.Mode = sslmUnassigned
    SSLOptions.VerifyMode = []
    SSLOptions.VerifyDepth = 0
    Left = 511
    Top = 30
  end
  object exportador: TmxDataSetExport
    DateFormat = 'dd/MM/yyyy'
    TimeFormat = 'hh:mm'
    DateTimeFormat = 'hh:mm dd/MM/yyyy'
    ExportType = xtExcel
    ExportTypes = [xtHTML, xtExcel, xtWord, xtTXT, xtCSV, xtTAB, xtRTF, xtDIF, xtSYLK, xtClipboard]
    ExportStyle = xsView
    HTML.CustomColors.Background = clWhite
    HTML.CustomColors.DefaultLink = clRed
    HTML.CustomColors.DefaultFontFace = 'Arial,Helvetica'
    HTML.CustomColors.VisitedLink = clAqua
    HTML.CustomColors.ActiveLink = clBlue
    HTML.CustomColors.DefaultText = clBlack
    HTML.CustomColors.TableFontColor = clBlack
    HTML.CustomColors.TableFontFace = 'Arial,Helvetica'
    HTML.CustomColors.TableBackground = 16777167
    HTML.CustomColors.TableOddBackground = clWhite
    HTML.CustomColors.HeaderBackground = 3368601
    HTML.CustomColors.HeadersFontColor = clWhite
    HTML.Options = [hoShowGridLines, hoBoldHeaders, hoAutoLink, hoOddRowColoring, hoDisplayTitle]
    HTML.Template = ctStandard
    Messages.Caption = 'Exporting DataSet'
    Messages.CopiedToClipboard = 'Data was copied to clipboard!'
    Messages.CancelCaption = '&Cancel'
    Messages.CreatedText = 'Created:'
    Messages.DocumentFilter.HTML = 'HTML Documents'
    Messages.DocumentFilter.Excel = 'Excel Files'
    Messages.DocumentFilter.Word = 'Word Documents'
    Messages.DocumentFilter.Text = 'Text Files'
    Messages.DocumentFilter.Comma = 'CSV (Comma delimited)'
    Messages.DocumentFilter.Tab = 'Text (Tab delimited)'
    Messages.DocumentFilter.RTF = 'Rich Text Format'
    Messages.DocumentFilter.DIF = 'Data Interchange Format'
    Messages.DocumentFilter.SYLK = 'SYLK Files'
    Messages.ExportCaption = '&Export'
    Messages.ExportToFile = 'Export &to file'
    Messages.FalseText = 'False'
    Messages.Height = 80
    Messages.SaveTitle = 'Save document'
    Messages.SelectFormat = 'E&xport formats:'
    Messages.Text = 'Processing...'
    Messages.TrueText = 'True'
    Messages.Width = 300
    Messages.ViewOnly = '&View only'
    TruncateSymbol = '...'
    RowNumberFormat = '%d'
    DOC_RTF.Template = rtStandard
    DOC_RTF.Options = [roShowGridLines, roOddRowColoring]
    DOC_RTF.CustomSettings.TableBackground = 16777167
    DOC_RTF.CustomSettings.TableOddBackground = clWhite
    DOC_RTF.CustomSettings.HeaderBackground = 3368601
    DOC_RTF.CustomSettings.DefaultFont.Charset = DEFAULT_CHARSET
    DOC_RTF.CustomSettings.DefaultFont.Color = clWindowText
    DOC_RTF.CustomSettings.DefaultFont.Height = -11
    DOC_RTF.CustomSettings.DefaultFont.Name = 'MS Sans Serif'
    DOC_RTF.CustomSettings.DefaultFont.Style = []
    DOC_RTF.CustomSettings.HeaderFont.Charset = DEFAULT_CHARSET
    DOC_RTF.CustomSettings.HeaderFont.Color = clWindowText
    DOC_RTF.CustomSettings.HeaderFont.Height = -11
    DOC_RTF.CustomSettings.HeaderFont.Name = 'MS Sans Serif'
    DOC_RTF.CustomSettings.HeaderFont.Style = [fsBold]
    DOC_RTF.CustomSettings.TableFont.Charset = DEFAULT_CHARSET
    DOC_RTF.CustomSettings.TableFont.Color = clWindowText
    DOC_RTF.CustomSettings.TableFont.Height = -11
    DOC_RTF.CustomSettings.TableFont.Name = 'MS Sans Serif'
    DOC_RTF.CustomSettings.TableFont.Style = []
    DOC_RTF.CellWidth = 1400
    DOC_RTF.TopMargin = 101
    DOC_RTF.BottomMargin = 101
    DOC_RTF.LeftMargin = 461
    DOC_RTF.RightMargin = 562
    EXCEL.Options = [reSetMargins, reUseBorders]
    EXCEL.ColumnWidth = 20
    EXCEL.Protected = False
    EXCEL.Footer = '&P'
    EXCEL.DefaultFont.Charset = DEFAULT_CHARSET
    EXCEL.DefaultFont.Color = clWindowText
    EXCEL.DefaultFont.Height = -11
    EXCEL.DefaultFont.Name = 'MS Sans Serif'
    EXCEL.DefaultFont.Style = []
    EXCEL.HeaderFont.Charset = DEFAULT_CHARSET
    EXCEL.HeaderFont.Color = clWindowText
    EXCEL.HeaderFont.Height = -11
    EXCEL.HeaderFont.Name = 'MS Sans Serif'
    EXCEL.HeaderFont.Style = [fsBold]
    EXCEL.TableFont.Charset = DEFAULT_CHARSET
    EXCEL.TableFont.Color = clWindowText
    EXCEL.TableFont.Height = -11
    EXCEL.TableFont.Name = 'MS Sans Serif'
    EXCEL.TableFont.Style = []
    EXCEL.TopMargin = 0.300000000000000000
    EXCEL.BottomMargin = 0.300000000000000000
    EXCEL.LeftMargin = 0.300000000000000000
    EXCEL.RightMargin = 0.300000000000000000
    Options = [xoClipboardMessage, xoFooterLine, xoHeaderLine, xoShowExportDate, xoShowHeader, xoShowProgress, xoUseAlignments]
    Version = '2.37'
    DataSet = cdsExporta
    Left = 540
    Top = 30
  end
  object cdsExporta: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 259
    Top = 2
    object cdsExportaseq: TStringField
      FieldName = 'seq'
      Visible = False
    end
    object cdsExportaempresa: TStringField
      DisplayLabel = 'Emp.'
      FieldName = 'empresa'
      Size = 3
    end
    object cdsExportadata: TDateField
      DisplayLabel = 'Data'
      FieldName = 'data'
    end
    object cdsExportatipo: TStringField
      DisplayLabel = 'Tp'
      FieldName = 'tipo'
    end
    object cdsExportaHistorico: TStringField
      DisplayLabel = 'Hist'#243'rico'
      FieldName = 'Historico'
      Size = 40
    end
    object cdsExportahistorico2: TStringField
      DisplayLabel = 'Hist'#243'rico 2'
      FieldName = 'historico2'
      Size = 40
    end
    object cdsExportapedido: TStringField
      DisplayLabel = 'Ped.'
      FieldName = 'pedido'
      Size = 9
    end
    object cdsExportapedrep: TStringField
      DisplayLabel = 'Ped. Rep.'
      FieldName = 'pedrep'
      Size = 9
    end
    object cdsExportapm: TStringField
      DisplayLabel = 'PM'
      FieldName = 'pm'
      Size = 3
    end
    object cdsExportacomissao: TFloatField
      DisplayLabel = '(%)Com.'
      FieldName = 'comissao'
    end
    object cdsExportabase: TFloatField
      DisplayLabel = 'B.Calc'
      FieldName = 'base'
    end
    object cdsExportavalor: TFloatField
      DisplayLabel = 'Valor'
      FieldName = 'valor'
    end
    object cdsExportastatus: TStringField
      DisplayLabel = 'Status'
      FieldName = 'status'
      Size = 15
    end
  end
  object cdsPeriodos: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 231
    Top = 2
    object cdsPeriodosDataInicial: TDateField
      FieldName = 'DataInicial'
    end
    object cdsPeriodosDataFinal: TDateField
      FieldName = 'DataFinal'
    end
  end
  object cdsRepComssCancel: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 232
    Top = 34
    object StringField1: TStringField
      FieldName = 'seq'
    end
    object StringField2: TStringField
      FieldName = 'empresa'
      Size = 3
    end
    object DateField1: TDateField
      FieldName = 'data'
    end
    object StringField3: TStringField
      FieldName = 'tipo'
    end
    object StringField4: TStringField
      FieldName = 'Historico'
      Size = 40
    end
    object StringField5: TStringField
      FieldName = 'serie'
      Size = 3
    end
    object StringField6: TStringField
      FieldName = 'nota'
      Size = 30
    end
    object StringField7: TStringField
      FieldName = 'entidade'
      Size = 5
    end
    object StringField8: TStringField
      FieldName = 'pedido'
      Size = 9
    end
    object StringField9: TStringField
      FieldName = 'pedrep'
      Size = 9
    end
    object StringField10: TStringField
      FieldName = 'pm'
      Size = 3
    end
    object FloatField1: TFloatField
      FieldName = 'comissao'
    end
    object FloatField2: TFloatField
      FieldName = 'base'
    end
    object FloatField3: TFloatField
      FieldName = 'valor'
    end
    object StringField11: TStringField
      FieldName = 'status'
      Size = 15
    end
    object StringField12: TStringField
      FieldName = 'representatnte'
      Size = 3
    end
    object StringField13: TStringField
      FieldName = 'historico2'
      Size = 40
    end
    object StringField14: TStringField
      FieldName = 'titulo'
      Size = 15
    end
    object FloatField4: TFloatField
      FieldName = 'devolucao'
    end
    object FloatField5: TFloatField
      FieldName = 'debitoper'
    end
    object FloatField6: TFloatField
      FieldName = 'frete'
    end
    object BooleanField1: TBooleanField
      FieldName = 'dev'
    end
    object FloatField7: TFloatField
      FieldName = 'comisspaga'
    end
    object BooleanField2: TBooleanField
      FieldName = 'Cancelada'
    end
    object StringField15: TStringField
      FieldName = 'chave'
    end
  end
end
